﻿<!-- #include file="mymin.asp" -->
<%Call Head()
w "<card title=""删除留言""><p>"

dim id,p
id=request.QueryString("id")
p=cint(request.QueryString("p"))
if p="" or p<1 then p=1
if id="" or IsNumeric(id)=False then
	Call Error("ID无效！")
end if

dim rs
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from 74hu_guest where ID=" & id,myconn,1,2
if rs.eof then
	w "留言已删或不存在！"
Else
	rs.delete
	rs.update
	w "删除成功！"
end if

rs.close
set rs=nothing

%>
<br/>----------<br/>
<a href="index.asp?sid=<%=sid%>&amp;p=<%=p%>">[留言管理]</a><%Call Last%>